emojifont新功能（有视频哦）

有多少人是看到有视频点进来的？是不是特别鸡冻想要看Y叔长啥样？视频在最后哦！

在写2月15号的推文《画❤️装geek什么的，都弱爆了！😜》时，画下面这个gif时，我是用base plot来画的，因为用ggplot2还麻烦点。

用ggplot2是这样画的：

而用base plot，则相对简单些：

第二天，我发了文字推送，提出了要写个geom_emoji图层的想法。

---

又过了一天，我就写了geom_emoji，于是如果我想看某个emoji长什么样，比如下面画个玫瑰花：

ggplot() + geom_emoji("rose") + theme_void()

这次的更新，我还换个emoji字体，升级到unicode 9，也就是最新加入的鸭子也能用咯：

ggplot() + geom_emoji("duck") + theme_void()

geom_emoji让画散点也变得简单，

x <- seq(-sqrt(17), sqrt(17), length.out=30)
y1 <- 8*abs(x)/17 + 15* sqrt(17 - x^2)/17
y2 <- 8*abs(x)/17 - 15* sqrt(17 - x^2)/17
ggplot() + geom_emoji("gift_heart", 
x=x, y=c(y1, y2), color="red", size=10)

---

大家肯定最想看的是制作动图gif的代码，这个代码非常简单，简直如同人类语言一般：

require(ggplot2)
require(magick)
require(purrr)

x <- search_emoji("heart")

plot_heart=function(x) {
 p = ggplot() + geom_emoji(x)
 o = paste0(x, ".png")
 ggsave(o, p, width=5, height=5)
 o
 }

x %>% map(plot_heart) %>% 
map(image_read) %>% 
image_join() %>% 
image_animate(fps=1) %>% 
image_write("heart.gif")

因为换了字体，所以和之前的不同，如果要去背景，只需要+theme_void()就可以。

新版也不同你加载字体的，随包载入自动加载，当然以前的字体还能用，还用一样的办法手工加载。（所以说我这次升级很考究，原来的字体，老方法，新字体你啥都不用干）

同时加入的还有geom_fontawesome图层，最新画hex sticker，用fontawesome蛮好用 -,-

---

这次更新，主要有3方面：升级了新字体，支持unicode 9；新加入的图层让你非常方便地看一看emoji表情长啥样；再者不需要手工加载字体了。

在《使用emoji画图》一文中，列出了一些别人做的图：比如数据冲浪，上面的例子中你已然知道怎么做出类似的动图；再比如十二生肖做x轴的柱状图，这个在后面的视频中会有演示。

视频是香港R用户组的教学视频，我也是在网上看到，才发现我被‘出镜了’，讲解了emojifont包，好像我在香港还有点小名气，然而我并没有露过脸，视频中也没有。

https://v.qq.com/txp/iframe/player.html?vid=x0384df21pt&width=500&height=375&auto=0

转发才是真爱，嗯，必定是这样！

真爱的人，看完还想看：